(shell-command): Avoid printing "mark set" message.

diff --git a/lisp/simple.el b/lisp/simple.el
index 88dc0dac2fd2f401f3f424e885069a63cc781f7a..00d8928249666e1c013bf0a5f41f1f0ce696aa45 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1142,7 +1142,7 @@ specifies the value of ERROR-BUFFER."
                             (make-temp-name "scor"))
                   nil)))
            (barf-if-buffer-read-only)
-           (push-mark)
+           (push-mark nil t)
            ;; We do not use -f for csh; we will not support broken use of
            ;; .cshrcs.  Even the BSD csh manual says to use
            ;; "if ($?prompt) exit" before things which are not useful